home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / lstdrag.exe / LSTDR2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-07-18  |  3.6 KB  |  109 lines
  1. Form1
  2. ListDrag Demo
  3. Form1-
  4. Label1
  5. List1
  6. Courier
  7. Label2
  8. Hold down Ctrl key and use Up and Down arrow keys to move a line in the listbox.  Or press Ctrl and drag a line with the mouse.  
  9. StartYZ
  10. MoveLine_
  11. Item1
  12. TRUEy
  13. FALSE
  14. @    Form_Load
  15. List1
  16.     ListIndex
  17. ListSwap
  18. Line1
  19. Line2I
  20. ListBox
  21. Tempx
  22. List1_MouseDown&
  23. Button
  24. Shift7
  25. CtrlDown
  26. RowSize
  27. List1_MouseMovep
  28. Label1B
  29. Caption
  30. ButtonDown
  31.     ListCount
  32. List1_MouseUp.
  33. List1_KeyUp
  34. KeyCode
  35. List1_KeyDown
  36.     UpPressed
  37. KEY_UP
  38. DownPressed
  39. KEY_DOWN\
  40. Height
  41. Item2
  42. List1_Click
  43. List1_DblClick
  44. MoveNow
  45. Label1_Click
  46. Label1_DragDrop
  47. Source8
  48. Label1_DragOver
  49. State
  50. Label1_MouseDown~
  51. Label1_MouseMove
  52. Label1_Top
  53. Label1_Left
  54. Label1_Width`
  55. Label1_HeightV
  56. Width
  57. List1_DragDropg
  58. Label
  59. List1_DragOver
  60. Enabled
  61. Label2?
  62. FontSize
  63. Offset
  64. Form_MouseUp
  65. WriteArrayQ
  66.     TempArray
  67. First
  68. IntSwap(
  69. Array3
  70. SwapInt
  71. TempInt
  72. MoveRow
  73. Thenase
  74. StaCaseq
  75. screen
  76. activecontrol
  77. Singe
  78. RowShow
  79. StartRow
  80. Form_MouseMove
  81. TempY
  82.     MouseMove
  83. IfThen
  84. Form_Click
  85. Mouse_Up
  86. Label3
  87. List2
  88. KeyTest
  89. Change
  90.  LSTDR2.MAK a demonstration Visual Basic program to show
  91.  how single items in a list box can be reordered using
  92.  Ctrl-UpArrow/DownArrow or by pressing Ctrl and dragging
  93.  a list item with the mouse.
  94.  Sue Mosher, 202-736-1136, CIS 75140,543 r
  95.  Public domain
  96.  line to be moved
  97.  flag for move under way
  98. Form_Load
  99. Item "
  100. ListSwap
  101. List1_MouseDown
  102. List1_KeyUp
  103. List1_KeyDown
  104.  returns -1 if KEY_UP, 1 if KEY_DOWN
  105. List1_MouseMove
  106.  mouse moved up
  107.  mouse moved down
  108. List1_MouseUp
  109.